home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / APP / M-R / Professor X.sit / Talking Professor X V2.0 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1993-03-22  |  3KB  |  24 lines

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>3</cardCount>
  7.     <cardID>5271</cardID>
  8.     <listID>2258</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>480</width>
  14.         <height>232</height>
  15.     </cardSize>
  16.     <script>ON openstackput True into showtimeglobal speechsay "I will be with you in just a second."set userlevel to 5if there is a menu Style then delete menu Styleif there is a menu tools then delete menu Toolsif there is a menu go then delete menu goif there is a menu Objects then delete menu Objectsif there is a menu Font then delete menu Fontrepeat (the number of lines in menu Edit)-6 timesdelete menuItem 7 of menu Editend repeatrepeat (the number of lines in menu File) timesdelete menuItem 1 of menu Fileend repeatif there is not a menu "Professor X" thencreate menu "Professor X"put "Show Transcript,-,Professor X Speaks!,Professor X Raps,-,Upgrade"¬¨into menu "Professor X" with menumsg "go2,-,speak,rap,-,import"set cmdchar of menuitem 1 of menu "Professor X" to Tset cmdchar of menuitem 3 of menu "Professor X" to Sset checkmark of menuitem 3 of menu "Professor X" to Trueput True into speechend ifput "Quit Professor-X" into menu File with menumsg "GoQuit"set cmdchar of menuitem 1 of menu "File" to "Q"put "About Professor-X‚Ķ" into menuitem 1 of menu AppleAnswer "Is this a new session" with Yes,Noif it is Yes then put empty into card field Transcript of the next cardgo to the next cardend openstackon go1Domenu "About Hypercard..."end go1on go2global fif the checkmark of menuitem 1 of menu "Professor X" is True thenset the checkmark of menuitem 1 of menu "Professor X" to Falsehide card field Transcriptput True into fsend getout to this cardelseset the checkmark of menuitem 1 of menu "Professor X" to Trueshow card field Transcriptend ifend go2on Domenu whichitemif whichitem is not "About Hypercard..." then pass Domenugo to card 3end DomenuON Speakglobal Speechget the checkmark of menuitem 3 of menu "Professor X"set the checkmark of menuitem 3 of menu "Professor X" to not itput not it into Speechend Speakon goQuitsay "Are you sure you are well enough to quit?"answer "Are you sure you are well enough to quit?" with Yes,Noif it is Yes thenanswer "" with "Quit","Home Stack","Cancel"if it is "Quit Hypercard" thensend "Domenu Quit Hypercard" to Hypercardend ifif it is "Cancel" then exit goquitend ifreset menubargo homeend goQuit</script>
  17.     <background id="4855" file="background_4855.xml" name="Karl T." />
  18.     <background id="4995" file="background_4995.xml" name="" />
  19.     <background id="6748" file="background_6748.xml" name="" />
  20.     <card id="5271" file="card_5271.xml" marked="false" name="" owner="4995" />
  21.     <card id="5906" file="card_5906.xml" marked="false" name="users" owner="4855" />
  22.     <card id="2666" file="card_2666.xml" marked="false" name="" owner="6748" />
  23. </stack>
  24.